home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _4FDA8956F9AB4E248B2D0D40598EAE16 < prev    next >
Encoding:
Text File  |  2004-03-18  |  930 b   |  32 lines
  1. regc(0, "TFACTOR")
  2.  
  3. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %sunvisibility )
  4. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  5.  
  6. pshader("
  7.  
  8. ps_1_1
  9.  
  10. tex t0                      ;texture (RGB - color, A<0-127> - Opacity, A<128-255> - Specular Mask)
  11. tex t1                      ;Clouds
  12.  
  13.  
  14. mul_sat        r1,    t0_bx2.a,     c5.a            ;Specular mask extraction
  15.  
  16. mul_sat        r1.rgb,    v1,            r1                ;Specular * Specular Mask           = Masked Specular
  17. +mul_sat        r0.a,    v0.b,        1-t1.a            ;Diffuse * Clouds Shadow            = Diffuse Lighting
  18.  
  19. mad_sat        r0.rgb,    r0.a,        c7,        c7.a    ;Diffuse Lighting + Map Ambient     = Set Diffuse
  20. +mul_sat        r1.a,    r1.b,        1-t1.a            ;Masked Specular * Clouds Shadow    = Set Specular
  21.  
  22. mad_sat        r0.rgb,    t0,            r0,        r1.a    ;Light Texture
  23. +mov_x2_sat    r0.a,    t0.a                        ;Opacity mask extraction
  24.  
  25. mul            r0.rgb,    r0,            c5                ;Day
  26. +mul        r0.a,    r0.a,        c0.a            ;Opacity Mask * Object blending
  27.  
  28. ")
  29.  
  30.  
  31.  
  32.